Plot6ab

library(ggplot2)
library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

R Markdown

StudentsPerformance <- read.table ("C:/Users/ronak/Downloads/StudentsPerformance.xls" , sep= ",", header = TRUE) 
attach (StudentsPerformance) 

plot_ly(StudentsPerformance,x=~math.score,y=~reading.score,z=~writing.score) %>% add_markers(color=~race.ethnicity) %>% 
layout (title = '3D Graph for Groupwise Marks',scene = list(xaxis = list(title = 'Math_Score'),
                                                            yaxis =list(title = 'Reading_Score'),
                                                            zaxis = list(title = 'Writing_Score')))

Including Plots